Option Explicit
Sub L_Sample011()
    'ոL_Data03
    Dim mySht As Worksheet
    Set mySht = Worksheets("L_Data03")			'N
    'MX
    With mySht.OLEObjects("Listbox1")
        'Zxsd򪺫w
        .ListFillRange = mySht.Name & "!$J$3:$J$12"
        'ӧOsW
        .ListFillRange = ""
        With .Object
            .AddItem "Excel", 0
            .AddItem "Word", 1
            .AddItem "Access", 2
        End With
        'H}CӷsW
        .Object.List = Array("97", "2000", "2002")
    End With
    'զX
    With mySht.OLEObjects("ComboBox1")
        'xsd򪺫w
        .ListFillRange = mySht.Name & "!$J$3:$J$12"
        'ӧOsW
        .ListFillRange = ""
        With .Object
            .AddItem "Excel", 0
            .AddItem "Word", 1
            .AddItem "Access", 2
        End With
        'H}CӷsW
        .Object.List = Array("97", "2000", "2002")
    End With
    'r
    With mySht.OLEObjects("TextBox1").Object
        .Value = "rr"
    End With
    's
    With mySht.OLEObjects("ToggleButton1").Object
        .Value = True
    End With
    'ﶵs
    With mySht.OLEObjects("OptionButton1").Object
        .Value = True
    End With
    '֨
    With mySht.OLEObjects("CheckBox1").Object
        .Value = True
    End With
    'ʦC
    With mySht.OLEObjects("ScrollBar1").Object
        .Value = (.Max + .Min) \ 2
    End With
    'Lիs
    With mySht.OLEObjects("SpinButton1").Object
        .Value = (.Max + .Min) \ 2
    End With
    '
    With mySht.OLEObjects("Label1").Object
        .Caption = "rr"
    End With
    'v
    With mySht.OLEObjects("Image1").Object
        .Picture = LoadPicture(ThisWorkbook.Path & "\test.jpg")
    End With
    'Os
    With mySht.OLEObjects("CommandButton1").Object
        .Caption = "rr"
    End With
    Set mySht = Nothing				'
End Sub
